Modification code

Private Sub Worksheet_Change(ByVal Target As Range) ' Si la feuille change, renvoie Target, sélection active sur la feuille
If Target.Address = "$F$3" Then ' Vérifie que Target est F3
champ = Target ' Charge la sélection dans une variable champ, soit F3
n = Range(champ).CurrentRegion.Rows.Count ' n prends le nombre de lignes renseignées autour de F3
' Mais il ne sert à rien puisqu'il n'est pas utilisé après
For i = 2 To Range(champ).Rows.Count ' De 2 au nombre de lignes de champ (mais comme champ vaut F3, ça vaut 1)
temoin = False ' Variable booléenne passée à faux
For c = 2 To Range(champ).Columns.Count ' De 2 au nombre de colonnes de champ (mais comme champ vaut F3, ça vaut 1)
If Range(champ).Cells(i, c) <> 0 Then temoin = True 'Si la cellule est différente de 0, temoin passe à vrai
Next c ' c suivant
Rows(i + Range(champ).Row - 1).Hidden = Not temoin ' Cache la ligne si temoin est faux
Next i ' i suivant
ActiveSheet.PrintPreview ' Affiche un aperçu avant impression
Cells.EntireRow.Hidden = False ' Réaffiche les lignes
End If ' fin du test
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) 'à chaque changement dans cet onglet
If Target.Address = "$F$3" Then 'condition 1 : si le changement a lieu dans la cellule F3
    champ = Target 'définit la variable champ (lui attribue la valeur contenue dans F3)
    'si champ a été déclaré comme String cela signifie que l'on a tapé une adresse dans F3 (par exempe "A12") et
    'dans ce cas Range(champ) devient la cellule A12
    n = Range(champ).CurrentRegion.Rows.Count 'définit la variable n
    'n est le nombre de lignes contenues dans la plage des cellules adjacentes à A12
   '(si on considère toujours l'exemple que "A12" a été édité dans F3)
    
    For i = 2 To Range(champ).Rows.Count 'boucle 1 : de 2 à ... ici il devrait plutôt y avoir n à la place de
    'Range(champ).Rows.Count... sinon la variable n définie au dessus ne sert à rien et
    'Range(champ).Rows.Count est toujours = à 1 donc problème car la boucle ne se fait pas???
        temoin = False 'définit la variable témoin (lui attribue la valeur false)...
        For c = 2 To Range(champ).Columns.Count 'boucle 2 : de 2 à ...
        'idem cette boucle se sera pas faite car Range(champ).Columns.Count
        'sera toujours = à 1 je pense qu'il faudrait plutôt For c = 2 To Range(champ).CurrentRegion.Columns.Count
            If Range(champ).Cells(i, c) <> 0 Then temoin = True 'condition : si la cellule n'est pas vide, temoin = vrai
        Next c 'prochaine valeur de la boucle 2
        Rows(i + Range(champ).Row - 1).Hidden = Not temoin 'affiche ou masque la ligne en fonction de la valeur de témoin
    Next i 'prochaine valeur de la boucle 1
    ActiveSheet.PrintPreview 'aperçu avant impression
    Cells.EntireRow.Hidden = False 'affiche toutes les lignes
End If 'fin de la condition 1
End Sub