VBA (Excel) - Supprimer une ligne

Range(Trim(Str(ActiveCell.Row)) & ":" & Trim(Str(ActiveCell.Row))).Select

Function GetColumn(aValue As Long) As String

    If aValue <> 0 Then
        If aValue < 26 Then
            GetColumn = Chr(64 + aValue)
        Else
            GetColumn = Chr(64 + (Int(aValue \ 26))) & GetColumn(aValue Mod 26)
        End If
    Else:
        Exit Function
    End If
    
End Function

Range("F2").Select
ActiveCell.Offset(-1, 0).Select

Do While ActiveCell.Value <> "NOT"
  If ActiveCell.Value = "NOT" Then
    Selection.EntireRow.Delete
  End If
Loop

Range ("A:A").Select
Selection.Delete ...

Sub TraitementComptage()

Dim TempsDépart As Date
Dim DépartComptage As Boolean

'saisir le premier temps constaté sur une campagne de comtage

TempsDépart = InputBox("Heure de début de campagne de comptage", "initialisation temps")
'Génération d'une feuille pour chaque touche
FeuilleSource = ActiveSheet.Name
For i = 1 To 4
Sheets.Add
ActiveSheet.Name = "T" & i
Next
'Génération Feuille Synthèse
Sheets.Add
ActiveSheet.Name = "Synthèse"
For i = 1 To 4
Range(Chr(i + 66) & 1).Value = "T" & i

Next i
'Ventilation des données dans la feuille touche correspondante
Sheets(FeuilleSource).Select
i = 1
Do While Sheets(FeuilleSource).Range("A" & i).Value <> ""
ValeurCellule = Sheets(FeuilleSource).Range("A" & i).Value
Sheets(ValeurCellule).Range("A" & i).Value = ValeurCellule
Sheets(ValeurCellule).Range("B" & i).Value = Sheets(FeuilleSource).Range("B" & i)
Sheets(ValeurCellule).Range("C" & i).Value = Sheets(FeuilleSource).Range("C" & i)
Sheets(ValeurCellule).Range("D" & i).Value = Sheets(FeuilleSource).Range("D" & i)
Sheets(ValeurCellule).Range("E" & i).Value = Sheets(FeuilleSource).Range("E" & i)
i = i + 1
Loop
'Tri des feuilles
For i = 1 To 4
Sheets("T" & i).Select
Columns("A:G").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Next i
'Insertion d'une colonne contenant l'information de la nieme minute depuis le temps de départ
For i = 1 To 4
Sheets("T" & i).Select
j = 1
Do While Range("A" & j).Value <> ""
Range("G" & j).Value = 1 + Minute(Range("E" & j).Value - TempsDépart) + 60 * Hour(Range("E" & j).Value - TempsDépart)
j = j + 1
Loop
If j > 1 Then
'enregistrement du nombre de minutes entre début et fin de comptage
'et du nombre de lignes pour la feuille
Range("F1").Value = Range("G" & j - 1)
Range("F2").Value = j - 1
End If
Next i
'Remplissage dans la feuille synthèse des colonnes de regroupement indiquant le nombre de comptage
'pour chaque minute écoulée et chaque touche

For i = 1 To 4
Sheets("T" & i).Select
Sheets("Synthèse").Range(Chr(i + 66) & 2).Value = Range("B1").Value
k = 1
DerniereLigneComptée = 1
For j = 1 To Range("F1").Value 'nb de minutes
Sheets("Synthèse").Range("A" & j + 2).Value = j 'minute courante
Sheets("Synthèse").Range("B" & j + 2).Value = DateAdd("n", j - 1, TempsDépart) 'temps courant
comptage = 0
DépartComptage = False
For k = DerniereLigneComptée To Range("F2").Value 'nombre de lignes
If Range("G" & k) = j Then
DépartComptage = True
comptage = comptage + 1
End If
If DépartComptage And Range("G" & k) <> j Then
DerniereLigneComptée = k 'mémorisation pour entrée de boucle suivante
Exit For
End If
Next k
Sheets("Synthèse").Range(Chr(i + 66) & j + 2).Value = comptage 'indication du nb de comtage pour la minute courante
Next j
Next i


End Sub

ActiveCell.EntireRow.Delete 'pour une ligne
ActiveCell.EntireColumn.Delete 'pour une colonne

Function GetColumn(aValue As Long) As String

    If aValue < 26 Then
        GetColumn = Chr(64 + aValue)
    Else
        GetColumn = Chr(64 + (aValue \ 26)) & GetColumn(aValue Mod 26)
    End If
End Function

Range (GetColumn (ActiveCell.Column) & ":" & GetColumn (ActiveCell.Column)).Select
Selection.Delete....

' supprime la ligne complète
Dim plage As Range, s As Range

Set plage = Range("A1").EntireRow

For Each s In plage
    s.Delete Shift:=xlUp
Next s